home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Tools / TrapGuru / gurutest.e next >
Encoding:
Text File  |  1994-10-03  |  517 b   |  23 lines
  1. /* Montre comment attraper les exceptions du processeur de vos propres
  2.    programmes.
  3.    Je ne garantie pas que ce que fait le module trapguru.m est 100% ok
  4.    pour tous les CPU
  5. */
  6.  
  7. MODULE 'tools/trapguru'
  8.  
  9. PROC main()
  10.   DEF a
  11.   trapguru()                       -> installe le gestionnaire
  12.   FOR a:=1 TO 10 DO bla(a)
  13. ENDPROC
  14.  
  15. PROC bla(x) HANDLE
  16.   DEF a=0
  17.   a:=a/a             -> cause l'exception processeur
  18. EXCEPT
  19.   IF exception="GURU"
  20.     WriteF('Un GURU \d est arrivé: $\z\h[8]\n',x,exceptioninfo)
  21.   ENDIF
  22. ENDPROC
  23.